home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / func.sdev < prev    next >
Text File  |  2007-02-28  |  468b  |  17 lines
  1. 0420 ╞╒╬├ SDEV(╥┼╞ ARRAY()) ├╠╧╙┼─
  2. 0430   ╔═╨╧╥╘ LAST,MEAN
  3. 0440   // CALCULATES THE STANDARD
  4. 0450   // DEVIATION OF THE ELEMENTS IN
  5. 0460   // AN ARRAY WHOSE LOWEST ELEMENT
  6. 0470   // IS NUMBERED (1).
  7. 0480   // ╙─┼╓ CALCULATES SAMPLE, NOT
  8. 0490   // POPULATION STANDARD-DEVIATION.
  9. 0500   N:=LAST(ARRAY())
  10. 0510   AVERAGE:=MEAN(ARRAY())
  11. 0520   SUM:=0
  12. 0530   ╞╧╥ I:=1 ╘╧ N ─╧
  13. 0540     SUM:+(ARRAY(I)-AVERAGE)^2
  14. 0550   ┼╬─╞╧╥ I
  15. 0560   ╥┼╘╒╥╬ ╙╤╥(SUM/(N-1))
  16. 0570 ┼╬─╞╒╬├ SDEV
  17.